Function DropBadChars(strIn As String) As String
    
    intNumChars = Len(strIn)
    
    strOut = intNumChars & " characters to check."
    
    DropBadChars = strOut

End Function